object OptFrm: TOptFrm
  Left = 0
  Top = 0
  Caption = 'Optionen'
  ClientHeight = 543
  ClientWidth = 702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 301
    Top = 0
    Width = 8
    Height = 488
    Beveled = True
    ExplicitLeft = 287
    ExplicitTop = -6
  end
  object Panel1: TPanel
    Left = 0
    Top = 488
    Width = 702
    Height = 55
    Align = alBottom
    TabOrder = 0
    ExplicitWidth = 623
    object okBtn: TBitBtn
      Left = 271
      Top = 15
      Width = 81
      Height = 25
      TabOrder = 0
      Kind = bkOK
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 301
    Height = 488
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 0
      Top = 97
      Width = 301
      Height = 391
      Align = alClient
      Caption = 'Verf'#252'gbare Benchmarks'
      TabOrder = 0
      ExplicitTop = 92
      ExplicitHeight = 396
      object plaGrid: TDBGrid
        Left = 2
        Top = 15
        Width = 297
        Height = 374
        Align = alClient
        DataSource = PlaDS
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnDblClick = plaGridDblClick
      end
    end
    object GroupBox3: TGroupBox
      Left = 0
      Top = 0
      Width = 301
      Height = 97
      Align = alTop
      Caption = 'Filter'
      TabOrder = 1
      ExplicitWidth = 702
      object Label1: TLabel
        Left = 26
        Top = 39
        Width = 48
        Height = 13
        Caption = 'Aufl'#246'sung'
      end
      object TypChkBox: TCheckBox
        Left = 16
        Top = 14
        Width = 58
        Height = 17
        Alignment = taLeftJustify
        BiDiMode = bdLeftToRight
        Caption = 'Methode'
        ParentBiDiMode = False
        TabOrder = 0
        OnClick = TypChkBoxClick
      end
      object TypBox: TDBLookupComboBox
        Left = 80
        Top = 12
        Width = 174
        Height = 21
        KeyField = 'TypInd'
        ListField = 'TypNam'
        ListSource = TypDS
        TabOrder = 1
      end
      object ResBox: TCheckListBox
        Left = 80
        Top = 39
        Width = 174
        Height = 47
        Columns = 3
        ItemHeight = 13
        Items.Strings = (
          '1'
          '2'
          '4'
          '8'
          '16'
          '32'
          '64'
          '128'
          '256')
        TabOrder = 2
        OnClick = TypChkBoxClick
      end
    end
  end
  object Panel3: TPanel
    Left = 377
    Top = 0
    Width = 325
    Height = 488
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    ExplicitLeft = 309
    ExplicitWidth = 314
    object GroupBox2: TGroupBox
      Left = 0
      Top = 97
      Width = 325
      Height = 391
      Align = alClient
      Caption = 'Ausgew'#228'hlte Benchmarks'
      TabOrder = 0
      ExplicitTop = 92
      ExplicitWidth = 314
      ExplicitHeight = 396
      object selGrid: TDBGrid
        Left = 2
        Top = 15
        Width = 321
        Height = 374
        Align = alClient
        DataSource = SelDS
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        OnDblClick = selGridDblClick
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 0
      Width = 325
      Height = 97
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
    end
  end
  object Panel5: TPanel
    Left = 309
    Top = 0
    Width = 68
    Height = 488
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 3
    object allOutBtn: TButton
      Left = 13
      Top = 294
      Width = 41
      Height = 25
      Caption = '<<'
      TabOrder = 0
      OnClick = allOutBtnClick
    end
    object allInBtn: TButton
      Left = 13
      Top = 201
      Width = 41
      Height = 25
      Caption = '>>'
      TabOrder = 1
      OnClick = allInBtnClick
    end
    object InBtn: TButton
      Left = 13
      Top = 232
      Width = 41
      Height = 25
      Caption = '>'
      TabOrder = 2
      OnClick = InBtnClick
    end
    object OutBtn: TButton
      Left = 13
      Top = 263
      Width = 41
      Height = 25
      Caption = '<'
      TabOrder = 3
      OnClick = OutBtnClick
    end
  end
  object SelQry: TMyQuery
    Connection = HptFrm.MyCon
    SQL.Strings = (
      'SELECT PlaInd, TypNam, PlaRes, PlaChk FROM PlaTbl, TypTbl'
      'WHERE PlaChk = TRUE AND'
      'PlaTyp = TypInd'
      'ORDER BY PlaRei;')
    OnCalcFields = SelQryCalcFields
    Left = 448
    Top = 184
    object SelQryPlaInd: TIntegerField
      FieldName = 'PlaInd'
      Visible = False
    end
    object SelQryTypNam: TStringField
      DisplayLabel = 'Methode'
      FieldName = 'TypNam'
      Size = 30
    end
    object SelQryPlaChk: TBooleanField
      FieldName = 'PlaChk'
      Visible = False
    end
    object SelQryPlaRes: TIntegerField
      FieldName = 'PlaRes'
      Visible = False
    end
    object SelQrySelResC: TIntegerField
      DisplayLabel = 'Aufl'#246'sung'
      FieldKind = fkCalculated
      FieldName = 'SelResC'
      Calculated = True
    end
  end
  object SelDS: TDataSource
    DataSet = SelQry
    Left = 480
    Top = 184
  end
  object PlaDS: TDataSource
    DataSet = PlaQry
    Left = 64
    Top = 200
  end
  object PlaQry: TMyQuery
    Connection = HptFrm.MyCon
    SQL.Strings = (
      'SELECT PlaInd, TypNam, PlaRes, PlaChk FROM PlaTbl, TypTbl'
      'WHERE PlaChk = FALSE AND'
      'PlaTyp = TypInd'
      'ORDER BY PlaInd;')
    OnCalcFields = PlaQryCalcFields
    Left = 32
    Top = 200
    object PlaQryPlaInd: TIntegerField
      FieldName = 'PlaInd'
      Visible = False
    end
    object PlaQryTypNam: TStringField
      DisplayLabel = 'Methode'
      FieldName = 'TypNam'
      Size = 30
    end
    object PlaQryPlaChk: TBooleanField
      FieldName = 'PlaChk'
      Visible = False
    end
    object PlaQryPlaRes: TIntegerField
      FieldName = 'PlaRes'
      Visible = False
    end
    object PlaQryPlaResC: TIntegerField
      DisplayLabel = 'Aufl'#246'sung'
      FieldKind = fkCalculated
      FieldName = 'PlaResC'
      Calculated = True
    end
  end
  object TypDS: TDataSource
    DataSet = TypQry
    OnDataChange = TypDSDataChange
    Left = 176
    Top = 8
  end
  object TypQry: TMyQuery
    Connection = HptFrm.MyCon
    SQL.Strings = (
      'SELECT * FROM TypTbl;')
    Left = 144
    Top = 8
    object TypQryTypInd: TIntegerField
      FieldName = 'TypInd'
    end
    object TypQryTypNam: TStringField
      FieldName = 'TypNam'
      Size = 30
    end
  end
  object SelReiQry: TMyQuery
    Connection = HptFrm.MyCon
    SQL.Strings = (
      'SELECT * FROM PlaTbl WHERE PlaInd = :PlaInd;'
      '')
    Left = 448
    Top = 216
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PlaInd'
      end>
    object SelReiQryPlaInd: TIntegerField
      FieldName = 'PlaInd'
    end
    object SelReiQryPlaTyp: TIntegerField
      FieldName = 'PlaTyp'
    end
    object SelReiQryPlaRes: TIntegerField
      FieldName = 'PlaRes'
    end
    object SelReiQryPlaChk: TBooleanField
      FieldName = 'PlaChk'
    end
    object SelReiQryPlaRei: TIntegerField
      FieldName = 'PlaRei'
    end
  end
  object plaCmd: TMyCommand
    Connection = HptFrm.MyCon
    SQL.Strings = (
      'UPDATE PlaTbl SET PlaChk = TRUE WHERE PlaInd = :PlaInd;')
    Left = 32
    Top = 232
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PlaInd'
      end>
  end
  object selCmd: TMyCommand
    Connection = HptFrm.MyCon
    SQL.Strings = (
      'UPDATE PlaTbl SET PlaChk = FALSE WHERE PlaInd = :PlaInd;'
      '')
    Left = 448
    Top = 256
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PlaInd'
      end>
  end
end
